home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / demo / pm5_demo.lha / Install_HD < prev    next >
Text File  |  1996-03-25  |  9KB  |  422 lines
  1. ; $VER: Install_PMPro V1.5 (2.11.97)
  2. ; J. Schaefer / Andreas R. Kleinert
  3. ; Modified to use LHA by Florian Zeiler
  4. ;
  5. ; 4.11.96 : now for PMPro 4 , J. Schaefer
  6. ;           LHA to PM/system
  7. ;
  8. ; 2.11.97 : GIF removed
  9. ;           NOW PMPro5: Help_Docs -> Docs_Sys
  10. ;                                Picasso96
  11. ;                                PPC-Support
  12. ;
  13.  
  14. (set @app-name "Picture Manager Professional 5 DEMO")
  15.  
  16. ;Installer-Version ...
  17.  
  18. (set #wrongversion
  19.  (cat "You have an old version of the 'Installer' "
  20.       "on your Amiga!\n\nYou need Installer V43.3 or higher. "
  21.       "You find it on the PMPRo Disk 1.\n\n"
  22.       "If you have the Utility MCP installed, you must copy the installer from"
  23.       "Disk1 to C: and deactivate MCP."
  24.  )
  25. )
  26.  
  27. (if (< @installer-version 2818051)
  28.  (
  29.   (user 2)
  30.   (message #wrongversion)
  31.   (exit (quiet))
  32.  )
  33. )
  34.  
  35. (welcome)
  36.  
  37. ;Diskettennames
  38.  
  39. (set #PMDsk1 "")
  40. (set #PMDsk2 "")
  41. (set #PMDisk1 "")
  42. (set #PMDisk2 "")
  43.  
  44. ; OS-Version
  45.  
  46. (set #OS_VER (/ (getversion) 65536) )
  47.  
  48. (if(< #OS_VER 37)
  49.   (abort "You need Kickstart/OS V2.04 with WB 2.1!")
  50. )
  51.  
  52. ; Installation-Path
  53.  
  54. (set #PMProDir (askdir
  55.                   (prompt "Select destination directory ?"
  56.                           "\n(A drawer PicManager will be created)")
  57.                   (help @askdir-help)
  58.                   (newpath)
  59.                   (default "Work:")
  60.                 )
  61. )
  62.  
  63. ; No RAM Disk installation
  64.  
  65. (if(= (getdevice #PMProDir) "RAM")
  66.     (abort "You can not install to the RAM-Disk!")
  67. )
  68.  
  69.  
  70. ; GD space
  71.  
  72. (set #dskspace (getdiskspace #PMProDir))
  73.  
  74. (if(<> #dskspace -1)
  75.  (if(< #dskspace 4000000)
  76.      (abort "There are no 4 MB Diskspace free ("dskspace") !")
  77.  )
  78. )
  79.  
  80. (set #dskspace (getdiskspace "SYS:"))
  81.  
  82. (if(<> #dskspace -1)
  83.  (if(< #dskspace 1100000)
  84.      (abort "In the (Workbench) are less than 1Mb free ("dskspace") !")
  85.  )
  86. )  
  87.  
  88. ; Drawer PicManager
  89.  
  90. (set #PMProPath (tackon #PMProDir "PicManager"))
  91. (makedir (#PMProPath))
  92.  
  93. ; set Path
  94.  
  95. (set @default-dest #PMProPath)
  96.  
  97. ; Displaydrivers
  98.  
  99. (set #viewinstall 255)
  100. (set #viewinstall (askoptions
  101.               (prompt "Select displaydriver(s) to install")
  102.               (choices "PicassoII" "Retina Z2/Z3" "Merlin" "CyberGraphX" "EGS" "OpalVision" "Picasso96")
  103.               (default 0)
  104.               (help (cat "Only select these driver(s)\n"
  105.                          "you have installed the coresponding\n"
  106.                          "GFX-card and/or the coresponding\n"
  107.                          "driver software!"    
  108.  
  109.                     )
  110.               )
  111.              )
  112. )
  113.  
  114. ; Delete old files
  115.  
  116. (delete (tackon #PMProPath "Autostart.prefs"       ) (optional "force"))
  117. (delete (tackon #PMProPath "Autostart.prefs.info"  ) (optional "force"))
  118.  
  119. (delete (tackon #PMProPath "PV.config"             ) (optional "force"))
  120. (delete (tackon #PMProPath "PV.config.info"        ) (optional "force"))
  121.  
  122. (delete (tackon #PMProPath "PhotoView"             ) (optional "force"))
  123. (delete (tackon #PMProPath "PhotoView.info"        ) (optional "force"))
  124.  
  125. (delete (tackon #PMProPath "PicManager.guide"      ) (optional "force"))
  126. (delete (tackon #PMProPath "PicManager.guide.info" ) (optional "force"))
  127.  
  128. (delete (tackon #PMProPath "Graphics.log"          ) (optional "force"))
  129. (delete (tackon #PMProPath "Graphics.log.info"     ) (optional "force"))
  130.  
  131. ; NEU: create Temp Dir
  132.  
  133. (set #TempPath (tackon #PMProPath ".tempinstall"))
  134. (makedir (#TempPath))
  135.  
  136. ; Clear Temp
  137.  
  138. ;
  139.  
  140. (onerror (P_CLEANUP))
  141.  
  142. (procedure P_CLEANUP
  143.    (delete #TempPath (all) (optional "force"))
  144. )
  145.  
  146. ; ...................Diskette 1
  147.  
  148.  
  149. ; LHA (Copy to temp)
  150.  
  151. (copyfiles
  152.   (source (tackon #PMDisk1 "lha"))
  153.   (dest (#TempPath))
  154. )
  155.  
  156. ; Declare dearchive fumction
  157.  
  158. (procedure P_EXPAND #exp_path #exp_archive #exp_dest
  159.   (set #exp_srcpath (tackon #exp_path #exp_archive))
  160.  
  161.   (if(= (exists #exp_srcpath) TRUE)
  162.     (
  163.      (working ("Extract '%s'" #exp_srcpath))
  164.      (set #exp_call ("%s X \"%s\" \"%s/\"" (tackon #TempPath "LHA") #exp_srcpath #exp_dest))
  165.      (run #exp_call)
  166.     )
  167.     (
  168.      (abort (cat "On the Disk" #exp_path "is not the file " #exp_archive))
  169.     )
  170.   )
  171. )
  172.  
  173. ; Archive PM_1 und PM_2 ins PM-Hauptverzeichnis
  174.  
  175. (P_EXPAND #PMDisk1 "PM_1.lha" #PMProPath)
  176. (P_EXPAND #PMDisk1 "PM_2.lha" #PMProPath)
  177.  
  178. ; Piktogramm kopieren
  179.  
  180. (copyfiles
  181.   (source (tackon #PMDisk1 "PicManager.inf"))
  182.   (dest #PMProDir)
  183.   (newname "PicManager.info")
  184.   (files)
  185. ) 
  186.  
  187. ; LHA ins PMPro-Systemverzeichnis kopieren
  188.  
  189.  
  190. (copyfiles
  191.   (source (tackon #PMDisk1 "lha"))
  192.    (dest (tackon #PMProPath "System"))
  193. ) 
  194.  
  195. ; ........................Diskette 2
  196.  
  197. ; Archive Examples und Docs_Sys ins PM-Hauptverzeichnis
  198.  
  199. (P_EXPAND #PMDisk2 "Examples.lha" #PMProPath)
  200. (P_EXPAND #PMDisk2 "Docs_Sys.lha" #PMProPath)
  201.  
  202. ; Archive Library und Drivers ins Tempverzeichnis
  203.  
  204. (P_EXPAND #PMDisk2 "Library.lha" #TempPath)
  205. (P_EXPAND #PMDisk2 "Drivers.lha" #TempPath)
  206.  
  207. ; Libraries installieren inclusive PPC
  208. ; ------------------------------------
  209. ; evtl. vorhandene SuperView Installation umbenennen
  210. ; (Treiber, Objekte und Operatoren und Library in .bak)
  211.  
  212. (delete "libs:svobjects.bak" (all) (optional "force"))
  213. (rename "libs:svobjects" "libs:svobjects.bak")
  214.  
  215. (delete "libs:svoperators.bak" (all) (optional "force"))
  216. (rename "libs:svoperators" "libs:svoperators.bak")
  217.  
  218. (delete "libs:svdrivers.bak" (all) (optional "force"))
  219. (rename "libs:svdrivers" "libs:svdrivers.bak")
  220.  
  221. (delete "libs:superview.library.bak" (optional "force"))
  222. (rename "libs:superview.library" "libs:superview.library.bak")
  223.  
  224. (delete "libs:superviewsupport.library.bak" (optional "force"))
  225. (rename "libs:superviewsupport.library" "libs:superviewsupport.library.bak")
  226.  
  227. ; Neue SuperView incl. PPC kopieren
  228.  
  229. (makedir "LIBS:svobjects")
  230. (makedir "LIBS:svoperators")
  231. (makedir "LIBS:svdrivers")
  232.  
  233. (copyfiles
  234.   (source (tackon #TempPath "libs/svobjects"))
  235.   (dest "libs:svobjects")
  236.   (all)
  237. )
  238.  
  239. (copyfiles
  240.   (source (tackon #TempPath "libs/svoperators"))
  241.   (dest "libs:svoperators")
  242.   (all)
  243. )
  244.  
  245. (copyfiles
  246.   (source (tackon #TempPath "libs/svdrivers"))
  247.   (dest "libs:svdrivers")
  248.   (all)
  249. )
  250.  
  251.  
  252. (copyfiles
  253.   (source (tackon #TempPath "libs/superview.library"))
  254.   (dest "libs:")
  255. )
  256.  
  257. (copyfiles
  258.   (source (tackon #TempPath "libs/superviewsupport.library"))
  259.   (dest "libs:")
  260. )
  261.  
  262. (copyfiles
  263.   (source (tackon #TempPath "libs/pmoperator.library"))
  264.   (dest "libs:")
  265.   (optional "force")
  266. )
  267.  
  268. ; Locale und Prefs kopieren
  269.  
  270. (copyfiles
  271.   (source (tackon #TempPath "locale"))
  272.   (dest "sys:locale")
  273.   (all)
  274. )
  275.  
  276. ; Verzeichnisse für Superview anlegen
  277.  
  278. (makedir "ENV:SuperView-Library")
  279. (makedir "ENVARC:SuperView-Library")
  280.  
  281. (copyfiles
  282.   (source (tackon #TempPath "prefs"))
  283.   (dest "sys:prefs")
  284.   (all)
  285. )
  286.  
  287. ; Diese Standard-Library besonders behandeln:
  288. ; Benutzer muß bestätigen
  289.  
  290. (copylib
  291.   (source (tackon #TempPath "libs/reqtools.library"))
  292.   (dest "libs:")
  293.   (prompt "The reqtools.library will be overwritten with a newer version.")
  294.   (help @copylib-help)
  295. )
  296.  
  297.  
  298. ; Anzeige-Module installieren
  299.  
  300. ; PICASSO II
  301. ; ----------
  302. (if (IN #viewinstall 0)
  303. (
  304.  (copyfiles
  305.    (source (tackon #TempPath "PicassoII.svdriver"))
  306.    (dest "sys:libs/svdrivers")
  307.  )
  308.  (copyfiles
  309.    (source (tackon #TempPath "PicassoII.controlpad"))
  310.    (dest "envarc:superview-library")
  311.  )
  312.  (copyfiles
  313.    (source (tackon #TempPath "PicassoII.controlpad"))
  314.    (dest (tackon #PMProPath "Env"))
  315.  )
  316. ))
  317.  
  318. ; RETINA
  319. ; ------
  320. (if (IN #viewinstall 1)
  321. (
  322.  (copyfiles
  323.    (source (tackon #TempPath "Retina.svdriver"))
  324.    (dest "sys:libs/svdrivers")
  325.  )
  326.  (copyfiles
  327.    (source (tackon #TempPath "Retina.controlpad"))
  328.    (dest "envarc:superview-library")
  329.  )
  330.  (copyfiles
  331.    (source (tackon #TempPath "Retina.controlpad"))
  332.    (dest (tackon #PMProPath "Env"))
  333.  )
  334. ))  
  335.  
  336. ; MERLIN
  337. ; ------
  338. (if (IN #viewinstall 2)
  339. (
  340.  (copyfiles
  341.    (source (tackon #TempPath "MERLIN.svdriver"))
  342.    (dest "sys:libs/svdrivers")
  343.  )
  344. ))  
  345.  
  346.  
  347. ; CYBERGRAPHX
  348. ; -----------
  349. (if (IN #viewinstall 3)
  350. (
  351.  (copyfiles
  352.    (source (tackon #TempPath "CyberGraphics.svdriver"))
  353.    (dest "sys:libs/svdrivers")
  354.  )
  355.  (copyfiles
  356.    (source (tackon #TempPath "CyberGraphics.controlpad"))
  357.    (dest "envarc:superview-library")
  358.  )
  359.  (copyfiles
  360.    (source (tackon #TempPath "CyberGraphics.controlpad"))
  361.    (dest (tackon #PMProPath "Env"))
  362.  )
  363. ))  
  364.  
  365. ; EGS
  366. ; ---
  367. (if (IN #viewinstall 4)
  368. (
  369.  (copyfiles
  370.    (source (tackon #TempPath "EGS7.svdriver"))
  371.    (dest "sys:libs/svdrivers")
  372.  )
  373. ))